VBA学习练习-将多个单元格内容合并

excel有分列功能，能把一个单元格内容拆分开，但是并没有合并操作，有些插件可以做到，既然是学习练习，就自己动手写了一下这个功能

将如下的数据内容合并到一个单元格内，并用逗号隔开（我这里指定的是输出内容填写在第一行右侧第一个空单元格，可以做适当改变）

 

 代码如下：

Sub 单元格内容合并()
Dim arr(), arr1() As Variant, lc, la As Integer, c, v, s As String
Application.DisplayAlerts = False
arr1 = Range("A1").CurrentRegion
lc = UBound(arr1, 1)
la = UBound(arr1, 2)
arr = Cells(2, 1).Resize(lc - 1, 1).Value
v = Cells(lc, 1).Value
For Each c In arr
    s = s & c
    If c <> v Then
        s = s & ","
        End If
Next
'Selection.Merge
Cells(1, la + 1).Value = s
Application.DisplayAlerts = True
End Sub